home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / SLOPER.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-29  |  4.4 KB  |  180 lines
  1. 10  'SLOPER - Sloper Antennas - 07 JAN 97 rev.
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  '
  4. 40  CLS:KEY OFF    'start
  5. 50  COLOR 7,0,1
  6. 60  PI=3.14159
  7. 70  U$="###.###"
  8. 80  COLOR 15,2
  9. 90  PRINT " SLOPER ANTENNA DIMENSIONS";TAB(57)"by George Murphy VE3ERP ";
  10. 100  COLOR 1,0:PRINT STRING$(80,223);
  11. 110  COLOR 7,0
  12. 120  '
  13. 130  '.....diagram
  14. 140  LOCATE 3
  15. 150  PRINT "  VARPTRDEFDBL  TO\"
  16. 160  PRINT "  CALL   OPEN \DEFSNGSOUNDSOUND upper support"
  17. 170  PRINT "  CALL   OPEN  \"
  18. 180  PRINT "  CALL   OPEN   XDEFSNGSOUNDSOUND insulator"
  19. 190  PRINT "  CALL   OPEN    \"
  20. 200  PRINT "  CALL   OPEN     \"
  21. 210  PRINT "  CALL   OPEN      \"
  22. 220  PRINT "  CALL   OPEN       \"
  23. 230  PRINT "  CALL   OPEN        \"
  24. 240  PRINT "  A   OPEN         \DEFSNGSOUNDSOUND antenna wire"
  25. 250  PRINT "  CALL   OPENDEFSNG- metal  \"
  26. 260  PRINT "  CALL   OPEN   mast or \"
  27. 270  PRINT "  CALL   OPEN   tower    \"
  28. 280  PRINT "  CALL   OPEN  (grounded) \"
  29. 290  PRINT "  CALL   OPEN              \"
  30. 300  PRINT "  CALL   OPEN    slope      XDEFSNGSOUNDSOUND insulator"
  31. 310  PRINT "  CALL   OPEN    angle SOUNDSOUNDDEFDBL+  \DEFSNGSOUNDSOUND lower support"
  32. 320  PRINT "  CLSDEFDBL SOUNDUSINGSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND\SOUNDSOUNDSOUND ground"
  33. 330  PRINT "      CALLDEFSNGSOUNDSOUNDSOUNDSOUNDSOUNDSOUND B SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDDEFDBLCALL"
  34. 340  '
  35. 350  GOSUB 1510:COLOR 0,7
  36. 360  PRINT " Press 1 to continue or 0 to EXIT....."
  37. 370  COLOR 7,0
  38. 380  Z$=INKEY$:IF Z$=""THEN 380
  39. 390  IF Z$="0"THEN CLS:RUN EX$
  40. 400  IF Z$="1"THEN 420
  41. 410  GOTO 380
  42. 420  GOSUB 1510:COLOR 0,7
  43. 430  PRINT " Do you want dimensions in (m)etres or (f)eet?  (m/f) "
  44. 440  COLOR 7,0
  45. 450  Z$=INKEY$:IF Z$=""THEN 450
  46. 460  IF Z$="m"THEN D$="metres":K=0.3048:GOTO 490
  47. 470  IF Z$="f"THEN D$="feet":K=1:GOTO 490
  48. 480  GOTO 450
  49. 490  GOSUB 1510:COLOR 0,7
  50. 500  LOCATE 5,45:PRINT " All dimensions are in ";D$;" "
  51. 510  LOCATE 23:COLOR 0,7
  52. 520  PRINT " Do you want a (f)ull sloper or a (h)alf sloper?  (f/h) "
  53. 530  COLOR 7,0
  54. 540  Z$=INKEY$:IF Z$=""THEN 540
  55. 550  IF Z$="h"THEN S$="HALF":COLOR 7,0:GOTO 580
  56. 560  IF Z$="f"THEN S$="FULL":COLOR 7,0:GOTO 610
  57. 570  GOTO 540
  58. 580  LOCATE  7,12:PRINT "THEN DEFSNGSOUNDSOUND feedpoint"
  59. 590  LOCATE 12,18:PRINT "DEFSNGSOUNDSOUND antenna wire":GOTO 650
  60. 600  '
  61. 610  LOCATE  6,16:PRINT "insulator"
  62. 620  LOCATE 9,15:PRINT "DEFSNGSOUNDSOUND antenna wire"
  63. 630  LOCATE 12,17:PRINT "THEN DEFSNGSOUNDSOUND feedpoint  "
  64. 640  LOCATE 15,21:PRINT "DEFSNGSOUNDSOUND antenna wire":GOTO 650
  65. 650  LOCATE 3,45:PRINT S$;"-SLOPER ANTENNA"
  66. 660  LOCATE 4,45:PRINT STRING$(34,205)
  67. 670  '
  68. 680  LOCATE 4,27:COLOR 30:PRINT "*"
  69. 690  GOSUB 1510
  70. 700  COLOR 0,7:PRINT " ENTER: Length of upper support (";D$;")";
  71. 710  INPUT UG
  72. 720  LOCATE 4,27:PRINT USING U$;UG;:PRINT " long"
  73. 730  COLOR 7,0
  74. 740  '
  75. 750  LOCATE 19,42:COLOR 30:PRINT "*"
  76. 760  GOSUB 1510
  77. 770  COLOR 0,7:PRINT " ENTER: Length of lower support (";D$;")";
  78. 780  INPUT LG
  79. 790  LOCATE 19,42:PRINT USING U$;LG;:PRINT " long"
  80. 800  COLOR 7,0
  81. 810  '
  82. 820  GOSUB 1510:COLOR 0,7
  83. 830  COLOR 0,7:INPUT " ENTER: Operating frequency (MHz)";F:COLOR 7,0
  84. 840  LOCATE 3,65:PRINT "for";F;"MHz"
  85. 850  '
  86. 860  GOSUB 1510:LOCATE 23
  87. 870  IF S$="FULL"THEN 890
  88. 880  IF S$="HALF"THEN 960
  89. 890  '.....full sloper
  90. 900  WIRE=467.2*K/F        '1/2 wavelength
  91. 910  COLOR 0,7
  92. 920  LOCATE 10,19:PRINT USING U$;WIRE/2;:PRINT " long"
  93. 930  LOCATE 16,25:PRINT USING U$;WIRE/2;:PRINT " long"
  94. 940  COLOR 7,0
  95. 950  GOTO 1030
  96. 960  '.....half sloper
  97. 970  WIRE=467.2*K/F/2      '1/4 wavelength
  98. 980  COLOR 0,7
  99. 990  LOCATE 13,22:PRINT USING U$;WIRE;:PRINT " long"
  100. 1000  COLOR 7,0
  101. 1010  GOTO 1030
  102. 1020  '
  103. 1030  HYP=WIRE+UG+LG        'hypotenuse
  104. 1040  A=SQR(HYP^2/2):B=A    'sides
  105. 1050  TH=ATN(A/B)*180/PI    'angle in degrees
  106. 1060  GOSUB 1080:GOTO 1280
  107. 1070  '
  108. 1080  '.....display dimensions
  109. 1090  LOCATE  7,45:PRINT " Length of slope =";
  110. 1100  COLOR 0,7:PRINT USING U$;HYP;:PRINT " "
  111. 1110  COLOR 0,7
  112. 1120  LOCATE  9,45:PRINT " A =";USING U$;A;:PRINT " "
  113. 1130  LOCATE 11,45:PRINT " B =";USING U$;B;:PRINT " "
  114. 1140  LOCATE 13,45:PRINT " + =";USING "###.##";TH;:PRINT "<UNK! {00F8}> "
  115. 1150  COLOR 7,0:GOSUB 1510
  116. 1160  COLOR 15:PRINT " Press number in < > to:"
  117. 1170  LOCATE CSRLIN-1,19:COLOR 30:PRINT "*"
  118. 1180  COLOR 0,7
  119. 1190  PRINT "CSRLIN <1> Change A CSRLIN <2> Change B CSRLIN <3> Change angle (+) ";
  120. 1200  PRINT "CSRLIN <4> Accept as is CSRLIN";
  121. 1210  COLOR 7,0
  122. 1220  Z$=INKEY$:IF Z$=""THEN 1220
  123. 1230  IF Z$="1"THEN 1290
  124. 1240  IF Z$="2"THEN 1360
  125. 1250  IF Z$="3"THEN 1430
  126. 1260  IF Z$="4"THEN 1550
  127. 1270  GOTO 1220
  128. 1280  '
  129. 1290  '.....change (a)
  130. 1300  GOSUB 1510:COLOR 0,7
  131. 1310  PRINT " ENTER: New dimension A in ";D$;:INPUT A
  132. 1320  IF A>=HYP THEN BEEP:GOSUB 1510:GOTO 1310
  133. 1330  B=SQR(HYP^2-A^2)
  134. 1340  TH=ATN(A/B)*180/PI
  135. 1350  GOTO 1110
  136. 1360  '.....change (b)
  137. 1370  GOSUB 1510:COLOR 0,7
  138. 1380  PRINT " ENTER: New dimension B in ";D$;:INPUT B
  139. 1390  IF B>=HYP THEN BEEP:GOSUB 1510:GOTO 1380
  140. 1400  A=SQR(HYP^2-B^2)
  141. 1410  TH=ATN(A/B)*180/PI
  142. 1420  GOTO 1110
  143. 1430  '.....change (+)
  144. 1440  GOSUB 1510:COLOR 0,7
  145. 1450  INPUT " ENTER: New angle (+) in degrees";TH
  146. 1460  IF TH>=90 THEN BEEP:GOSUB 1510:GOTO 1450
  147. 1470  TR=TH*PI/180    'angle in radians
  148. 1480  A=SIN(TR)*HYP:B=COS(TR)*HYP
  149. 1490  GOTO 1110
  150. 1500  '
  151. 1510  '.....erase lines 22-24
  152. 1520  VIEW PRINT 22 TO 24:CLS:VIEW PRINT:LOCATE 23
  153. 1530  RETURN
  154. 1540  '
  155. 1550  '.....end
  156. 1560  GOSUB 1510
  157. 1570  PRINT " Dimensions shown are exact for a right-angle triangle. Allow";
  158. 1580  PRINT " extra length in"
  159. 1590  PRINT " supports and antenna wires to suit actual site conditions and for";
  160. 1600  PRINT " pruning.";
  161. 1610  LOCATE 15,46:PRINT "See the ARRL HANDBOOK or the ARRL"
  162. 1620  LOCATE 16,46:PRINT "ANTENNA BOOK for other design"
  163. 1630  LOCATE 17,46:PRINT "parameters."
  164. 1640  GOSUB 1670:GOTO 40
  165. 1650  END
  166. 1660  '
  167. 1670  'HARDCOPY
  168. 1680  GOSUB 1790:LOCATE 25,2:COLOR 14,6
  169. 1690  PRINT " Press 1 to print screen, 2 to print screen & ";
  170. 1700  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  171. 1710  Z$=INKEY$:IF Z$="3"THEN GOSUB 1790:RETURN
  172. 1720  IF Z$="1"OR Z$="2"THEN GOSUB 1790:GOTO 1740
  173. 1730  GOTO 1710
  174. 1740  FOR QX=1 TO 24:FOR QY=1 TO 80
  175. 1750  LPRINT CHR$(SCREEN(QX,QY));
  176. 1760  NEXT QY:NEXT QX
  177. 1770  IF Z$="2"THEN LPRINT CHR$(12)
  178. 1780  GOTO 1680
  179. 1790  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  180.